unit ClientsF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseF, FMTBcd, SqlExpr, Provider, DB, DBClient, ComCtrls, StdCtrls,
  Grids, DBGrids, ExtCtrls, DBGridA, DBCtrls, Mask;

type
  TClientsFrame = class(TBaseFrame)
    TopPanel: TPanel;
    RightPanel: TPanel;
    Label1: TLabel;
    SearchBox: TEdit;
    CheckBox1: TCheckBox;
    LeftPanel: TPanel;
    Label15: TLabel;
    DeptGroupCombo: TComboBox;
    Grid: TDBGrid;
    BottomPanel: TPanel;
    ChangesPanel: TPanel;
    TitleLabel: TLabel;
    Label2: TLabel;
    SaveButton: TButton;
    CancelButton: TButton;
    DetailPages: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet4: TTabSheet;
    Source: TDataSource;
    Ds: TClientDataSet;
    Provider: TDataSetProvider;
    Query: TSQLDataSet;
    ComboBox1: TComboBox;
    Label5: TLabel;
    TabSheet5: TTabSheet;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Button1: TButton;
    Label16: TLabel;
    CondCombo: TComboBox;
    DsID: TIntegerField;
    DsEESNIMI: TStringField;
    DsPERENIMI: TStringField;
    DsNIME_LISA: TStringField;
    DsTEL: TStringField;
    DsEMAIL: TStringField;
    DsMARKUSED: TStringField;
    DsREG_AADRESS: TStringField;
    DsPOSTIAADRESS: TStringField;
    DsGRUPP: TStringField;
    DsPIIRKOND: TStringField;
    DsKONTAKTISIK: TStringField;
    DsREG_ISIKU_KOOD: TStringField;
    DsKAARDI_KOOD: TStringField;
    DsTYYP: TSmallintField;
    DsON_TARNIJA: TSmallintField;
    DsFOTO: TBlobField;
    DsNIMI: TStringField;
    Label10: TLabel;
    DBMemo3: TDBMemo;
    DBMemo1: TDBMemo;
    Label4: TLabel;
    Label6: TLabel;
    DBMemo2: TDBMemo;
    Label13: TLabel;
    TypeCombo: TDBComboBox;
    NameLabel1: TLabel;
    NameEdit1: TDBEdit;
    NameLabel2: TLabel;
    NameEdit2: TDBEdit;
  private
    { Private declarations }
  public
    function GetTitle: String; override;
  end;


var
  ClientsFrame: TClientsFrame;
  
implementation

{$R *.dfm}

{ TClientsFrame }

function TClientsFrame.GetTitle: String;
begin
  Result := 'Kliendid';
end;

end.
